00010	
00050	VARIABLE PT;
00150	COMPILE;
00200	INSTRUMENT LIN;
00400	LINEN(P4,P7,P8,P9,P5,PT); < AMP,ATT,DECAY,DUR,FUNC,PNTR
00500	COSCIL(U1,MAG*P3,P6);
00700	OUTA←OUTA+U2;
00800	END;
00900	FINISH;
00950	ARRAY F3(512);
01000	SEG(F1);1,1  .3,25 .1,50  0,75  0,100;
01050	SYNTH(F3);1,1  2,.4  3,.1  999;
01060	PT=0;
01100	PLAY;LIN 0 .5 A 2000 F1 F3 .02 .1 P2 0;FINISH;